home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 30 / PC Gamer IT CD 30 1-2.iso / EARTHL / ELNBOOK / ARCHIVE.Z / AcroRd32.exe / PSPROCSET / 6 < prev    next >
Encoding:
Text File  |  1996-11-04  |  7.3 KB  |  494 lines
  1. %%BeginFile: pdftext.prc
  2. %%Copyright: Copyright 1987-1994 Adobe Systems Incorporated. All Rights Reserved.
  3. PDF /PDFText 51 dict dup begin put
  4. /initialize { PDFText begin } bd
  5. /terminate { end } bd
  6. /CopyFont {
  7. {
  8. 1 index /FID ne 2 index /UniqueID ne and
  9. { def } { pop pop } ifelse
  10. } forall
  11. } bd
  12. /modEnc {
  13. /_enc xdd
  14. /_icode 0 dd
  15. counttomark 1 sub -1 0
  16. {
  17. index
  18. dup type /nametype eq
  19. {
  20. _enc _icode 3 -1 roll put
  21. _icode 1 add
  22. }
  23. if
  24. /_icode xdd
  25. } for
  26. cleartomark
  27. _enc
  28. } bd
  29. /trEnc {
  30. /_enc xdd
  31. 255 -1 0 {
  32. exch dup -1 eq
  33. { pop /.notdef }
  34. { Encoding exch get }
  35. ifelse
  36. _enc 3 1 roll put
  37. } for
  38. pop
  39. _enc
  40. } bd
  41. /TE {
  42. /_i xdd
  43. StandardEncoding 256 array copy modEnc
  44. _pdfEncodings exch _i exch put
  45. } bd
  46. /TZ
  47. {
  48. /_usePDFEncoding xdd
  49. findfont
  50. dup length 2 add dict
  51. begin
  52. {
  53. 1 index /FID ne { def } { pop pop } ifelse
  54. } forall
  55. /FontName exch def
  56. _usePDFEncoding 0 ge
  57. {
  58. /Encoding _pdfEncodings _usePDFEncoding get def
  59. pop
  60. }
  61. {
  62. _usePDFEncoding -1 eq
  63. {
  64. counttomark 0 eq
  65. { pop }
  66. {
  67. Encoding 256 array copy
  68. modEnc /Encoding exch def
  69. }
  70. ifelse
  71. }
  72. {
  73. 256 array
  74. trEnc /Encoding exch def
  75. }
  76. ifelse
  77. }
  78. ifelse
  79. FontName currentdict
  80. end
  81. definefont pop
  82. }
  83. bd
  84. /_pdfIsLevel2
  85. systemdict /languagelevel known
  86. {languagelevel 2 ge}
  87. {false}
  88. ifelse
  89. def
  90. _pdfIsLevel2
  91. {
  92. /_pdfFontStatus
  93. {
  94. dup /Font resourcestatus
  95. {pop pop pop true}
  96. {
  97. /CIDFont /Category resourcestatus
  98. {
  99. pop pop
  100. /CIDFont resourcestatus
  101. {pop pop true}
  102. {false}
  103. ifelse
  104. }
  105. { pop false }
  106. ifelse
  107. }
  108. ifelse
  109. } bd
  110. }
  111. {
  112. /_pdfFontStatusString 50 string def
  113. _pdfFontStatusString 0 (fonts/) putinterval
  114. /_pdfFontStatus
  115. {
  116. _pdfFontStatusString 6 42 getinterval
  117. cvs length 6 add
  118. _pdfFontStatusString exch 0 exch getinterval
  119. status
  120. { pop pop pop pop true}
  121. { false }
  122. ifelse
  123. } bd
  124. }
  125. ifelse
  126. /_pdfString100 100 string def
  127. /_pdfComposeFontName
  128. {
  129. dup length 1 eq
  130. {
  131. 0 get
  132. 1 index
  133. type /nametype eq
  134. {
  135. _pdfString100 cvs
  136. length dup dup _pdfString100 exch (-) putinterval
  137. _pdfString100 exch 1 add dup _pdfString100 length exch sub getinterval
  138. 2 index exch cvs length
  139. add 1 add _pdfString100 exch 0 exch getinterval
  140. exch pop
  141. true
  142. }
  143. {
  144. pop pop
  145. false
  146. }
  147. ifelse
  148. }
  149. {
  150. false
  151. }
  152. ifelse
  153. } bd
  154. systemdict /composefont known
  155. {
  156. /_pdfComposeFont
  157. {
  158. 1 index /CMap resourcestatus
  159. {pop pop true}
  160. {false}
  161. ifelse
  162. 1 index true exch
  163. {
  164. _pdfFontStatus not
  165. {pop false exit}
  166. if
  167. }
  168. forall
  169. and
  170. {composefont true}
  171. {
  172. _pdfComposeFontName
  173. {
  174. dup _pdfFontStatus
  175. { findfont definefont true }
  176. { pop pop false }
  177. ifelse
  178. }
  179. {
  180. dup _pdfFontStatus
  181. { findfont true }
  182. { pop false }
  183. ifelse
  184. }
  185. ifelse
  186. }
  187. ifelse
  188. } bd
  189. }
  190. {
  191. /_pdfComposeFont
  192. {
  193. _pdfComposeFontName not
  194. {
  195. dup
  196. }
  197. if
  198. 2 copy _pdfFontStatus
  199. { pop findfont definefont true }
  200. {
  201. eq
  202. {pop false}
  203. {
  204. dup _pdfFontStatus
  205. {findfont true}
  206. {pop false}
  207. ifelse
  208. }
  209. ifelse
  210. }
  211. ifelse
  212. } bd
  213. }
  214. ifelse
  215. /_pdfFaceByStyleDict 4 dict dup begin
  216. _pdfIsLevel2
  217. {
  218. /Serif
  219. /Ryumin-Light-83pv-RKSJ-H /Font resourcestatus
  220. {pop pop /Ryumin-Light}
  221. {/HeiseiMin-W3}
  222. ifelse
  223. def
  224. /SansSerif
  225. /GothicBBB-Medium-83pv-RKSJ-H /Font resourcestatus
  226. {pop pop /GothicBBB-Medium}
  227. {/HeiseiKakuGo-W5}
  228. ifelse
  229. def
  230. /Jun101-Light-83pv-RKSJ-H /Font resourcestatus
  231. {pop pop /RoundSansSerif /Jun101-Light def }
  232. {
  233. /HeiseiMaruGo-W4-83pv-RKSJ-H /Font resourcestatus
  234. {pop pop /RoundSansSerif /HeiseiMaruGo-W4 def}
  235. if
  236. }
  237. ifelse
  238. /Default Serif def
  239. }
  240. {
  241. /Serif /Ryumin-Light def
  242. /SansSerif /GothicBBB-Medium def
  243. {
  244. (fonts/Jun101-Light-83pv-RKSJ-H) status
  245. }stopped
  246. {pop}{
  247. {pop pop pop pop /RoundSansSerif /Jun101-Light def }
  248. if
  249. }ifelse
  250. /Default Serif def
  251. }
  252. ifelse
  253. end
  254. def
  255. /TZzero
  256. {
  257. /_styleArr xdd
  258. 3 copy
  259. _pdfComposeFont
  260. {exch pop exch pop exch pop}
  261. {
  262. [
  263. 0 1 _styleArr length 1 sub
  264. {
  265. _styleArr exch get
  266. _pdfFaceByStyleDict exch 2 copy known not
  267. { pop /Default }
  268. if
  269. get
  270. }
  271. for
  272. ]
  273. exch pop
  274. 2 index 3 1 roll
  275. _pdfComposeFont
  276. {exch pop}
  277. {
  278. findfont
  279. dup length dict
  280. begin
  281. {1 index /FID ne {def}{pop pop} ifelse }
  282. forall
  283. currentdict
  284. end
  285. }
  286. ifelse
  287. }
  288. ifelse
  289. definefont pop
  290. }
  291. bd
  292. /swj {
  293. dup 4 1 roll
  294. dup length exch stringwidth
  295. exch 5 -1 roll 3 index mul add
  296. 4 1 roll 3 1 roll mul add
  297. 6 2 roll /_cnt 0 dd
  298. {1 index eq {/_cnt _cnt 1 add dd} if} forall pop
  299. exch _cnt mul exch _cnt mul 2 index add 4 1 roll 2 index add 4 1 roll pop pop
  300. } bd
  301. /jss {
  302. 4 1 roll
  303. {
  304. 2 npop
  305. (0) exch 2 copy 0 exch put
  306. gsave
  307. 32 eq
  308. {
  309. exch 6 index 6 index 6 index 5 -1 roll widthshow
  310. currentpoint
  311. }
  312. {
  313. false charpath currentpoint
  314. 4 index setmatrix stroke
  315. }
  316. ifelse
  317. grestore
  318. moveto
  319. 2 copy rmoveto
  320. } exch cshow
  321. 6 npop
  322. } def
  323. /jsp
  324. {
  325. {
  326. 2 npop
  327. (0) exch 2 copy 0 exch put
  328. 32 eq
  329. { exch 5 index 5 index 5 index 5 -1 roll widthshow }
  330. { false charpath }
  331. ifelse
  332. 2 copy rmoveto
  333. } exch cshow
  334. 5 npop
  335. } bd
  336. /trj { _cx 0 32 _ax 0 6 5 roll } bd
  337. /pjsf { trj sfc awidthshow } bd
  338. /pjss { trj _ctm ssc jss } bd
  339. /pjsc { trj jsp } bd
  340. /_Tjdef [
  341. /pjsf load
  342. /pjss load
  343. {
  344. dup
  345. currentpoint 3 2 roll
  346. pjsf
  347. newpath moveto
  348. pjss
  349. } bind
  350. {
  351. trj swj rmoveto
  352. } bind
  353. {
  354. dup currentpoint 4 2 roll gsave
  355. pjsf
  356. grestore 3 1 roll moveto
  357. pjsc
  358. } bind
  359. {
  360. dup currentpoint 4 2 roll
  361. currentpoint gsave newpath moveto
  362. pjss
  363. grestore 3 1 roll moveto
  364. pjsc
  365. } bind
  366. {
  367. dup currentpoint 4 2 roll gsave
  368. dup currentpoint 3 2 roll
  369. pjsf
  370. newpath moveto
  371. pjss
  372. grestore 3 1 roll moveto
  373. pjsc
  374. } bind
  375. /pjsc load
  376. ] def
  377. /BT
  378. {
  379. /_inT true dd
  380. _ctm currentmatrix pop matrix _tm copy pop
  381. 0 _rise translate _hs 1 scale
  382. 0 0 moveto
  383. } bd
  384. /ET
  385. {
  386. /_inT false dd
  387. _tr 3 gt {clip} if
  388. _ctm setmatrix newpath
  389. } bd
  390. /Tr {
  391. _inT { _tr 3 le {currentpoint newpath moveto} if } if
  392. dup /_tr xdd
  393. _Tjdef exch get /_Tj xdd
  394. } bd
  395. /Tj {
  396. userdict /$$copystring 2 index put
  397. _Tj
  398. } bd
  399. /iTm { _ctm setmatrix _tm concat 0 _rise translate _hs 1 scale } bd
  400. /Tm { _tm astore pop iTm 0 0 moveto } bd
  401. /Td { _mtx translate _tm _tm concatmatrix pop iTm 0 0 moveto } bd
  402. /TD { dup /_ld xdd Td } bd
  403. /Tf {
  404. dup 1000 div /_fScl xdd
  405. exch findfont exch scalefont setfont
  406. } bd
  407. /TL { neg /_ld xdd } bd
  408. /Tw { /_cx xdd } bd
  409. /Tc { /_ax xdd } bd
  410. /Ts { /_rise xdd currentpoint iTm moveto } bd
  411. /Tz { 100 div /_hs xdd iTm } bd
  412. /Tk { exch pop _fScl mul neg 0 rmoveto } bd
  413. /T* { 0 _ld Td } bd
  414. /' { T* Tj } bd
  415. /" { exch Tc exch Tw ' } bd
  416. /TJ {
  417. {
  418. dup type /stringtype eq
  419. { Tj }
  420. { 0 exch Tk }
  421. ifelse
  422. } forall
  423. } bd
  424. /T- { _hy Tj } bd
  425. /d0/setcharwidth ld
  426. /d1 { setcachedevice /sfc{}dd /ssc{}dd } bd
  427. /nND {{/.notdef} repeat} bd
  428. /T3Defs {
  429. /BuildChar
  430. {
  431. 1 index /Encoding get exch get
  432. 1 index /BuildGlyph get exec
  433. }
  434. def
  435. /BuildGlyph {
  436. exch begin
  437. GlyphProcs exch get exec
  438. end
  439. } def
  440. } bd
  441. /MakeBold {
  442. findfont dup dup length 2 add dict
  443. begin
  444. CopyFont
  445. /PaintType 2 def
  446. /StrokeWidth .03 0 FontMatrix idtransform pop def
  447. /dummybold currentdict
  448. end
  449. definefont
  450. 8 dict begin
  451. /_basefont exch def
  452. /_basefonto exch def
  453. /FontType 3 def
  454. /FontMatrix[1 0 0 1 0 0]def
  455. /FontBBox[0 0 1 1]def
  456. /Encoding StandardEncoding def
  457. /BuildChar
  458. {
  459. exch begin
  460. _basefont setfont
  461. ( )dup 0 4 -1 roll put
  462. dup stringwidth
  463. 1 index 0 ne { exch .03 add exch }if
  464. setcharwidth
  465. 0 0 moveto
  466. gsave
  467. dup show
  468. grestore
  469. _basefonto setfont
  470. show
  471. end
  472. }bd
  473. currentdict
  474. end
  475. definefont pop
  476. }bd
  477. /MakeItalic {
  478. findfont _italMtx makefont
  479. dup length dict
  480. begin
  481. CopyFont
  482. currentdict
  483. end
  484. definefont pop
  485. }bd
  486. /MakeBoldItalic {
  487. /dummybold exch
  488. MakeBold
  489. /dummybold
  490. MakeItalic
  491. }bd
  492. currentdict readonly pop end
  493. %%EndFile
  494.